Public Class ClientInfo
    Dim CIP As String
    Dim CPort As String
    Dim CName As String = "NoName"
    Dim CIPendpoint As System.Net.IPEndPoint
    Public ReadOnly Property IP() As String
        Get
            Return CIP
        End Get
    End Property
    Public ReadOnly Property Port() As String
        Get
            Return CPort
        End Get
    End Property
    Public Property Name() As String
        Get
            Return CName
        End Get
        Set(ByVal value As String)
            CName = value
        End Set
    End Property
    Public WriteOnly Property IPEndPoint() As System.Net.IPEndPoint

        Set(ByVal value As System.Net.IPEndPoint)
            CIPendpoint = value
            CIP = CIPendpoint.Address.ToString
            CPort = CIPendpoint.Port.ToString
        End Set
    End Property

End Class
